﻿Public Class listChat
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        

        Dim o = ChatClient.ChatManager.GetMessages(101, hdnLastPostTimeStamp.Value)

        Dim lastTimeStamp = (From t In o Order By t.Time Descending Take 1 Select t.Time).FirstOrDefault
        hdnLastPostTimeStamp.Value = lastTimeStamp.Ticks

        rptChatList.DataSource = o
        rptChatList.DataBind()

        

    End Sub

End Class